Valdir

Amigo Rogério... Só por curiosidade: Porque não transforma os seus Arquivos .Rc em .Res e compila junto com seu executável ? Faz muito tempo, inclusive nem me lembro mais o que foi, tive um problema com os Arquivos .Rc e passei a usar o .Res. Nunca mais tive problemas. Abraços.

Alexandre... Quando um Contador Metido a Besta começa a inventar situações duvidosas, solicito que o mesmo me envie a Documentação Oficial, pertinente as alegações dele. Até hoje, nenhum mais tocou no assunto.

Putz ... Que Deus Pai conforte toda a família neste momento de dor.. Descanse em Paz meu amigo "Batata"

Fala Tranka... Obrigado por responder. Sim... sempre uso as versões que estou compilando. Abraços.

Boas... Neste meu aprendizado sobre o uso do MariaDb, utilizo a versão 18.12 da Fivewin com o xHarbour. Para Compilar, utilizo os scripts .Bat e .Lnk Arquivo .Bat /////////////////////// @Echo Off Cls Echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ Echo ³ FiveWin For xHarbour 18.12 - FIVE SOLUTION S/C. Ltda. ³Ü Echo ³ xHarbour 1.2.3 Intl. (SimpLex) - Build 20181203 ³Û Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ Echo ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß Set hdir=C:\XHB1812 Set bcdir=C:\bcc7 Set Fwhdir=C:\FWH1812 @If Exist *.Bak Del *.Bak @If Exist *.Obj Del *.Obj @If Exist *.Log Del *.Log @If Exist *.Map Del *.Map @If Exist *.PPO Del *.Ppo @If Exist *.TDS Del *.TDS @If Exist *.C Del *.C If Exist VISUAL.Exe Del VISUAL.Exe %hdir%\bin\harbour VISUAL /m/n /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p > Erro.log %hdir%\bin\harbour MENUPRI /m/n /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p > Erro.log ........ %bcdir%\bin\bcc32 -M -c -v -O2 -eVISUAL.exe -I%hdir%\include -I%bcdir%\include VISUAL.C >> Erro.log %bcdir%\bin\bcc32 -M -c -v -O2 -eMENUPRI.exe -I%hdir%\include -I%bcdir%\include MENUPRI.C >> Erro.log Arquivo .Lnk //////////// c0w32.Obj + VISUAL.OBJ + MENUPRI.OBJ + ...... C:\FwH1812\lib\FiveHX.lib + C:\FwH1812\lib\FiveHC.lib + C:\FwH1812\lib\libmysql.lib + ..... C:\Bcc7\lib\cw32.lib + C:\Bcc7\lib\import32.lib + Porém até o momento não consegui gerar o arquivo de "Error.Log" quando ocorre algum erro de execução. Sempre que ocorre algum erro em Run Time, é apresentada a Tela abaixo. Será que estão faltando algumas configurações nesse meus scripts Alguém sabe como corrigir isso ? Obrigado

Olá Ladinilson... "Restauração" automática ??? Já tive esse tipo de problemas Uma certa vez, um espertalhão achando que sabia o que estava fazendo, iniciou a restauração do back´up da semana anterior. Porém ao perceber que estava fazendo merda, simplesmente desligou o Servidor e tentou inicialmente colocar a culpa no Sistema, depois disse que deveria ser problema do Sistema Operacional. O que o infeliz não sabia, é que o meu Sistema registra quem e quando executa as rotinas de restauração do Back´up. A partir desta situação, adotei que a "Restauração" do Back´up só poderia ser feita através de uma senha, que só o Suporte do Sistema teria acesso. Abraços.

Uma dúvida... No vosso sistema existe alguma rotina para "restauração" de backups ?

Oi Hasa... Que eu saiba, o seu cliente deve emitir um NF-e de Entrada, com base nas informações da DI. Após isso, ele deve importar o XML desta NF-e. Abraços.

Olá Márcio... Verifique as Configurações Automáticas de Data e Fuso Horário do seu Servidor. Verifique também se não faltou alguma Atualização do rWindows. Aqui já enfrentamos este tipo de problema e a solução sempre foi conseguida através dessas verificações. Abraços,

Leonardo e demais amigos... O erro estava ocorrendo devido aos tamanhos do Campo "Unid" estarem divergentes entre as Tabelas de Produtos e Tabela de Unidade. Após corrigir isso, funfou legal. Obrigado a todos e em especial ao amigo Leonardo pela Dica. Valeu.

Amigo Leonardo... Obrigado por responder e compartilhar conhecimentos. Irei testar aqui e qualquer problema te informo. Valeu.

Boas... Amigos, tenho um Cadastro de Unidades (Peças, Quilos, Unidades, Metros...) no qual os meus clientes podem e devem editar para atender as suas necessidades. Nunca tive problemas usando os Arquivos Dbfs, porém agora com a SQL, não mostra a Unidade que está cadastrada. reparem nas duas imagens abaixo. Para os Arquivos .DBFs, utilizo assim as funções da dBCombo: REDEFINE DBCOMBO oLby[1] VAR CUNID ID 34 OF oFld:aDialogs[ 1 ] ; COLORS CLR_HBLUE, CLR_CREME WHEN wNIVEL > 6 ; ALIAS "UNI" ; ITEMFIELD "UNID" ; LISTFIELD "UNID" oLby[1]:Del(1) Já para a SQL : REDEFINE DBCOMBO oLby[1] VAR CUNID ID 34 OF oFld:aDialogs[ 1 ] ; COLORS CLR_HBLUE, CLR_CREME WHEN wNIVEL > 6 ; ALIAS dbQry1 ; ITEMFIELD "UNID" ; LISTFIELD "UNID" oLby[1]:Del(1) Reparem que a única mudança é na chamanda do Alias. Por favor, alguém sabe como resolver esse problema ? Obrigado .

Caro amigo Rochinha... Obrigado por responder. Más é justamente essa uma das minhas dúvidas. Como fazer ? Teria algum exemplo Abraços.

Amigo Rogério... Veja se isso te ajuda. /****************************************************************/ // Rotinas para pegar as Configurações de rede By Vagner Wirts // /****************************************************************/ #include "fivewin.ch" //positions inside array returned by GetNetCardInfo() #define ADP_NAME 1 //An ANSI character string of the name of the adapter. (STRING) #define ADP_DESCRIPTION 2 //An ANSI character string that contains the description //of the adapter. (STRING) #define ADP_ADDRESS 3 //The hardware address for the adapter (STRING) #define ADP_INDEX 4 //The adapter index. //The adapter index may change when an adapter is disabled //and then enabled, or under other circumstances, //and should not be considered persistent.(NUMERIC) #define ADP_TYPE 5 //The adapter type. see define list type (bellow) (NUMERIC) #define ADP_DHCPENABLED 6 //An option value that specifies whether the dynamic host //configuration protocol (DHCP) is enabled for this adapter.(LOGICAL) #define ADP_ADDRESSLIST 7 //The list of IPv4 addresses associated with this adapter(STRING) #define ADP_GATEWAY 8 //The IPv4 address of the gateway for this adapter (STRING) #define ADP_DHCPSERVER 9 //The IPv4 address of the DHCP server for this adapter represented(STRING) #define ADP_HAVEWINS 10 //An option value that specifies whether this adapter uses (LOGICAL) //the Windows Internet Name Service (WINS).(LOGICAL) #define ADP_PRIMARY 11 //the IPv4 address of the primary WINS server #define ADP_SECUNDARY 12 //The IPv4 address of the secondary WINS server //Types #define MIB_IF_TYPE_OTHER 1 //Some other type of network interface. #define MIB_IF_TYPE_ETHERNET 6 //An Ethernet network interface. #define MIB_IF_TYPE_TOKENRING 9 #define MIB_IF_TYPE_PPP 23 //A PPP network interface. #define MIB_IF_TYPE_LOOPBACK 24 //A software loopback network interface. #define MIB_IF_TYPE_SLIP 28 //An ATM network interface. #define IF_TYPE_IEEE80211 71 //An IEEE 802.11 wireless network interface. //Note This adapter type is returned on Windows Vista and later. //On Windows Server 2003 and Windows XP , //an IEEE 802.11 wireless network interface returns an adapter //type of MIB_IF_TYPE_ETHERNET. //---------------------------------------------------// FUNCTION TESTEMAC() Local aConec, lOk:=.T. Local lAchouWiFi := .F. Local lAchouRede := .F. Local i:=1 aConec := GetNetCardInfo() aEval(aConec,<|aCon,nPos| If "WI-FI" $ Upper(aCon[2]) .or. "WIRELES" $ Upper(aCon[2]) .or. "BLUETOOTH" $ Upper(aCon[2]) .or. "HOSTED" $ Upper(aCon[2]) .or. "TeamViewer" $ Upper(aCon[2]) .or. "VPN" $ Upper(aCon[2]) .or. "TAP" $ Upper(aCon[2]) lAchouWiFi := .T. Else If Empty(VAL(aCon[7])) .AND. EMPTY(VAL(aCon[9])) lTemp:=.F. lOk:=.F. MsgStop("Nao foi Detectada a Conexao Ethernet da Rede Com o Servidor...","ATENCAO...") Else lAchouRede := .T. Endif Endif >) ? "Rede Interna : "+Iif(lAchouRede,""," Não")+ " Achou",; "Wi-Fi : "+Iif(lAchouWiFi,""," Não")+ " Achou",; xbrowse( GetNetCardInfo() ) return nil //--------------- FIM DO PROGRAMA ------------------------// Essa Rotina foi criada pelo Mestre Vagner Wirts. Ela pega as informações da rede. Repare que nas colunas G,H e I estão as informações dos Ips e Getway. Acredito que você deve usar as informações das Colunas H ou I. Abraços.

Amigo Rogério. Mais uma vez, agradeço a sua ajuda. Serão duas situações que desejo entender: 1ª - Como configurar o BD num Servidor numa Rede Local. 2ª - Como configurar o BD num Servidor Remoto que poderá ser através da Nuvem ou FTP. Obrigado

Amigo Rogério... Primeiramente, obrigado por compartilhar conhecimentos. Não formulei corretamente a minha pergunta. Na verdade o que gostaria de aprender é como instalar e acessar o meu BD num Servidor Local através da rede. O meu Sistema fica Servidor local, onde fica também o Bd. Os Terminais acessam através de um Link apontado diretamente para a pasta do Sistema. Hoje uso assim através da TDolphin: //--------------------------------------------------------------------------// Function Main() PRIVATE cServer := "localhost" PRIVATE cUser := "root" PRIVATE cPassword := "MinhaSenha" PRIVATE nPort := 3306 PRIVATE cDBName := "meubd" PRIVATE nFlags := 0 PRIVATE oServer := NIL IF ( oServer := ConnectTo() ) == NIL msgAlert("Erro de conexão") return nil ENDIF MainMenu(oServer) oServer:End() msginfo("Fim da Conexao...") Return Nil A minha dúvida é: O que tenho que alterar para que os Terminais enxerguem o BD juntamente com o Executável ? Obrigado.

Boa tarde amigos... Até o momento, o meu aprendizado sobre SQL vai indo de vento em popa, porém uso somente como Localhost. Gostaria de iniciar o meu aprendizado, instalando o "MeuDb" num Servidor Remoto e acessá-lo através do IP. Sei que isso é possível, porém não tenho a minima idéia de como realizar tal tarefa. Não querendo abusar, alguém ensina o caminho das pedras ? Obrigado.

Bom dia amigos... Este é um tema, que acredito perturbar a maioria de nós. Por sermos "Lobos Solitários", sem querer, acabamos por colocar a saúde financeira dos nossos familiares em risco, pois não temos perspectivas de continuidade do nosso trabalho ao partimos. Poucos conseguiram montar uma estrutura que dê essa tranquilidade, porém, sem a nossa presença, nossas famílias dificilmente ficarão totalmente protegidas. Diante disto, só nos resta uma pergunta: O que fazer ? Há alguns anos, o nosso grande amigo Vagner Wirts defendia a criação de um Grupo de Profissionais que seriam parceiros no apoio técnico e na continuidade dos nossos trabalhos. Na época, até tentamos nos unir, porém sem sucesso. Hoje acredito que este tema deva ser novamente abordado, pois se passaram vários anos sem nenhuma mudança nestas condições e estamos caminhando para o mesmo fim. Com o objetivo de nos conhecer melhor e formarmos parcerias visando o nosso futuro e de nossos familiares, gostaria de convidar os amigos para divulgarem suas respectivas áreas de atuação e assim alinhar aqueles que terão condições técnicas de nos substituir em caso de ficarmos impossibilitados de trabalhar. No meu caso, seria isso: Área de Atuação : Chão de Fábrica -> Fabricação em Série, Fabricação por Encomenda, Usinagem, Ferramentaria, Caldeiraria, Vendas de Produtos e Serviços. Região: Jundiaí-SP., Várzea Paulista-SP, Campo Limpo Paulista-SP, Valinhos-SP, Vinhedo-SP, Itatiba-SP e Bragança Paulista-SP. Módulos do Sistema: Gestão de Clientes, Gestão de Fornecedores, Gestão de Colaboradores, Gestão de Máquinas e Equipamentos(Depreciações), Gestão de Encargos Sociais sobre Folha de Pagamentos, Plano de Contas Financeira, Plano de Centros de Custos, Mapa de Custos Operacionais, Gestão Fiscal, Sped Fiscal, Logistica (Compras e Movimentações de Entradas), Gestão do Estoque, Ponto de Vendas, Ordem de Serviços, PCP, Metrologia, Apontamento de Mão de Obra e Máquinas, Gestão de Notas Fiscais Eletrônicas, Gestão Financeira e Relatórios Gerenciais. Acredito que os amigos que trabalharem na mesma área que a minha, entenderão as funcionalidades básicas do meu Sistema e já terão 50% de capacidade de me substituir no caso de haver necessidade. Não sei se todos concordam, más acho que seria uma saída. Por favor, opinem. Abraços.

Amigo Rochinha... Obrigado por compartilhar conhecimentos. abraços.

Só lembrando que a Tag "cBenef" somente será obrigatória em alguns estados, conforme a imagem abaixo.

Bom dia Tranka... Obrigado por responder. Sim, já havia atualizado para a Nfe_Util_2gv4.07f. Abraços.

Boas... Amigos, desde ontem, após atualizar o Sistema da Nota Fiscal Eletrônica em atendimento das últimas Regras de Validações, venho tendo problemas num único cliente que mesmo após Registrar a Dll através do aplicativo da Flexdocs, retorna o erro abaixo. Em todos os clientes, utilizo dois sistemas, um de Retaguarda, no qual chamo o outro programa para Emissão das NFe através da Classe do Gilmer e da Dll da Flexdocs. O mais estranho é que se chamo o programa da NFe através do Retaguarda, ocorre o erro da imagem, porém se somente prepara no Retaguarda e posterior abrir o Sistema de NFe separadamente, funfa que é uma belezura. Alguém já enfrentou algo semelhante a esse problema ? Grato

É isso ai Kapi... Eduardo, basta seguir as configurações conforme o Kapiaba postou. Abraços.

Tranka... É relativo ao Internet Explorer. Veja : https://support.microsoft.com/en-us/help/3071338/internet-explorer-11-adds-support-for-http-strict-transport-security-s Abraços