SAOliveira

Exato, é como uso função minha, para tratar o SQL execute, comi bronha. Quanto ao BD, uso os 2 InnoDb e MyIsam. Faça um teste, tome como base. cCmd:="UPDATE conv_empresa_cadastro SET usuario_atualizou = "+Any2Sql(pCodUso) cCmd+=",tipo="+Any2Sql(Wtipo) cCmd+=",cpf="+Any2Sql(Wcpf) cCmd+=",doc="+Any2Sql(Wdoc) cCmd+=",fantasia="+Any2Sql(wfantasia) cCmd+=",razao="+Any2Sql(Wrazao) cCmd+=" WHERE registro = "+Any2Sql(Wregistro) PSQL_Execute(xBanco,cCmd,"Gravando CONV Empresa") PSQL_Execute(xBanco,"COMMIT") ---------------------------------------------------- **-------------------------------------** ** Executar comandos na base de dados **-------------------------------------** Function PSQL_Execute(Arg1,Arg2,Arg3) ** Arg1 = Conexao com o banco ** Arg2 = String para gravar ** Arg3 = Trata retorno de Erro. **-------------------------------------** lRet:=.F. SQL EXECUTE (Arg2) INTO (Arg1) IF(SQLErrorNO()>0) PSQL_GravaQuery(Arg2) MsgStop(StrTran(SQLErrorMsg(),"RDD",""),Arg3) ENDIF RETURN(lRet)

Bem Yuri, não tenho tanta experiência assim com SQL, mas uso a SQLLib tem mais de 7 anos e nunca passei por isto. Não quero dizer com isto que o problema não possa existir. Desde o inicio sempre uso os procedimentos. 1 - SQLExecute(conexão_bd,Comando), 2 - Após qualquer envio de dados ao BD, SqlExecute(conexão,"COMMIT") conexão =SQLGetConn() do Bd em questão. Quanto ao Banco propriamente dito, uso a LibMySql.dll do banco que está instalado, e não simplesmente pegar de qualquer versão do BD e utilizar. Isto pode por exemplo estar instalado no seu desenvolvimento o BD versão 5.7.x e no cliente a Versão 5.5.xx. Quanto a LibMySql.lib, uso exatamente a mesma fornecida junto com a SQlLib.

No caso a seguir: Empresa CRT3, regime de apuração. 1 - Emite cupom fiscal de venda com itens tributados e Substituição. 2 - Sai para a entrega, e por algum motivo é devolvido. Procedimento, emitir uma NFe de entrada CFOP 1202 referenciando o cupom. Duvidas na NFe: 1 - CST/CFOP dos produtos 2 - Destaque dos tributos ICMS/Pis/Cofins. 3 - Se pode efetuar vários CUPONS emitidos na mesma NFe. Obs.: Em consulta a contadores, obtive respostas diferentes.

Desculpe o pitaco. sqlexecute("COMMIT") antes do select. o mais certo não seria depois de gravar.

Por acaso experimentou, testou, ou algo parecido.

mysqldump -h servidor -u usuario -p senha data_base > E:\COPIA.SQL

Faz hoje via sistema. ?

Tenta assim. aqui tem o campo status no TMP que mostra no browse. oColSta:=oBrw:AddCol() oColSta:AddResource("16_APPLY") oColSta:AddResource("") oColSta:bBmpData :={|| IF(TMP->status,1,2)} oColSta:cHeader :="Sta" oColSta:nHeadStrAlign:=AL_CENTER oColSta:nWidth :=032

http://www1.receita.fazenda.gov.br/sistemas/sped-contabil/tabelas-de-codigos.htm http://www.espanholgratis.net/nacionalidad.htm

redefine say v_totalnota1 var v_totalnota PICTURE "@e 999,999.99" id 4002 of oceca6 COLOR COR_LETRA,COR_FUNDO FONT SUA_FONT o right já vem do resource.

Tudo depende onde esta o BD, Windows ou Linux. - Se for Windows você pode utilizar o Agendador de Tarefas, fazendo rodar um .bat com o mysqldump. - Você também pode instalar o MySqlFront atual e fazer uma Tarefa/Exportar. Vale lembrar que ambos os casos você configura a forma e o local do BACKUP. - Se for em Linux você pode utilizar o CronTab para agendar a tarefa. Dica em http://www.infowester.com/linuxcron.php

Só mais uma forma, apesar de ser da época com clipper DOS. FUNCTION PCS_Trunca(valor,decimal) LOCAL nVal:=Val(Str(Int(Valor))+"."+Subs(AllTrim(Str(Valor-Int(valor))),3,decimal)) RETURN(nVal)

Veja se Ajuda. IF(!PCS_StatusExe("QualPrograma")) **------------------------------------------------------------------------------** ** Finalidade : Verificar se um Programa está em execução **------------------------------------------------------------------------------** FUNCTION PCS_StatusExe(cExecutavel) **------------------------------------------------------------------------------** LOCAL oWmiService,oListaProcess,oProcessos,Wexecutando:=.F. oWmiService=Service_WMI() oListaProcess:=oWmiService:ExecQuery("SELECT * FROM Win32_Process WHERE Name='"+cExecutavel+"'") FOR EACH oProcessos IN oListaProcess Wexecutando:=.t. Next RETURN(Wexecutando) **----------------------------------------------------------** STATIC FUNCTION Service_WMI() **----------------------------------------------------------** STATIC oWmiService LOCAL oScriptObj IF(oWmiService==NIL) oScriptObj=CREATEOBJECT("wbemScripting.SwbemLocator") oWmiService=oScriptObj:ConnectServer() ENDIF RETURN(oWmiService)

http://fivewin.com.br/index.php?/topic/20960-sintegra-a-partir-da-mfd-do-ecf/?hl=Sintegra Não sei dizer se ajudou, pois o tópico não foi finalizado.

Não é a sua resposta, mas... http://www.dci.com.br/comercio/multa-sobre-ausencia-de-tributos-na-nota-fiscal-e-adiada-em-um-ano-id350384.html

Aguem teria tabela ou link de Ncm-Sh com descrição. O mais completa possível.

Bem amigo, não sei dizer se esta errado. Seleciona uma área: SELECT 8 Seleciona ordem no Alias() : SAESTA->(DBSETORDER(1)) Acho desnecessário e confuso setar uma área e trabalhar com um alias()

Só para constar. DEFINE DIALOG oDlg[1] FROM L[1],L[2] TO L[3],L[4] OF oWnd Pixel TITLE cTitulo Style(DS_MODALFRAME) FONT fNormal COLOR PRETO,CINZACC @ 040,010 Get oNomAss VAR _nomass Picture "@!K" OF oFld[1]:aDialogs[1] Pixel Size 230,010 FONT fGet COLOR CLR_BLACK, CLR_WHITE UPDATE

tenta aí. @ 040,010 Get oNomPac VAR _nompac Picture "@!K" OF oFld[1]:aDialogs[1] Pixel Size 200,010 FONT fGet COLOR AZUL,FundoGet UPDATE

Você pode simular o oBrw:nStretchcol := STRETCHCOL_LAST determinando o tamanho da célula com 2pixel a menos que o tamanho desejado oCol_Tot:nWidth:=110 é o tamanho desejado oCol_Tot:nWidth:=108 tamanho fixado. com isto não vai mover para a direita.

O que acontece que você é que o tamanho das colunas esta maior que a do browse. Uma forma seria você definir um nFreeze com a quantidade total das colunas que esta mostrando.

Será que entendi. Você quer gerar os índices e usá-los por um nome e não pela sequencia (1,2,3...) Se for isto e estiver usando .CDX, faça por TAG´s. USE ARQUIVO VIA DBFCDX INDEX ON NOME TAG "CODIGO" TO INDICE INDEX ON NOME TAG "NOME" TO INDICE ALIAS->(ORDSETFOCUS('NOME'))

Redefine Get oAreaConst_get Var AreaTotal_get picture "@E 999999.99" ID 122 OF oDlg When .f. UPDATE

1 - Acho que o o ideal seria ajudarmos na situação atual. 2 - Como ele mesmo disse, passou a ocorrer depois da migração para FW. 3 - Secretarias dizem que o sistema agarra, demora para abrir. Seria possivel voce mostrar: - Código onde acusa a lentidão. - Forma de abrir os arquivos.

Bem eu uso o W8/64, testei o resultado foi: 1 - NotePad++ = normal 2 - Bloco de notas = quebra linha.