SISCO
Membros-
Posts
108 -
Joined
-
Last visited
Everything posted by SISCO
-
Bom dia pessoal Fiz um teste nesta rotina,mas não reconheceu oLbx:Set3DStyle(). A minha versão do Fivewin é 16.08
-
Obrigado pela ajuda, vou testar e aviso ao gupo
-
olá a todos Estou tentando criar uma tela com browse no pelles roda, mas não aparece o conteúdo. Peguntas: 1) Qual é o componente no pelles uso para criar o xbrowse 2) Como eu redefino este componente no programa Fiz um teste roda não dar erro, mas não aparece nada, são com 2 browses na mesma tela local oDlgCad, oFld, oFont STATIC oBotonBMP oBotonBMP := ARRAY( 2 ) USUARIO(.F.) VENDA(.F.) DEFINE FONT oFont1 NAME "Arial" SIZE 6, 15 BOLD DEFINE FONT oFont2 NAME "Arial" SIZE 6, 15 DEFINE FONT oFont NAME "Tahoma" SIZE 0,-12 DEFINE DIALOG oDlgCad RESOURCE "FOLDER_CAIXA" TITLE "Resumo de Caixa" FONT oFont REDEFINE BITMAP ID 5000 RESOURCE "BANNER" OF oDlgCad ADJUST REDEFINE FOLDER oFld ID 1000 OF oDlgCad ; PROMPTS "Vendedor" ; DIALOGS "CON_CAIXA1" // 1º Browse Com DBF oBrwUsu := TXBrowse():New( oDlgCad ) oBrwVen:CreateFromResource( 4001 ) oBrwVen:cAlias := ("USUARIO") oBrwVen:lHScroll := .f. oBrwVen:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrwVen:nColDividerStyle := LINESTYLE_LIGHTGRAY oBrwVen:nRowDividerStyle := LINESTYLE_LIGHTGRAY oBrwVen:l2007 := .t. oBrwVen:lrecordselector := .f. oColUsu:=oBrwVen:AddCol() oColVen:cHeader := "Usuario" oColVen:bStrData := { || USUARIO->NOME } oColVen:nDataStrAlign := AL_LEFT oColVen:nHeadStrAlign := AL_LEFT oColVen:nWidth := 50 oColVen:=oBrwVen:AddCol() oColVen:cHeader := "Total Vendido" oColVen:bStrData := { || trans(USUARIO->VlTotal,"@E 999,999,999.99") } oColVen:nDataStrAlign := AL_LEFT oColVen:nHeadStrAlign := AL_LEFT oColVen:nWidth := 90 oBrwVen := TXBrowse():New( oDlgCad ) oBrwVen:CreateFromResource( 4002 ) oBrwVen:cAlias := ("VENDA") oBrwVen:lHScroll := .f. oBrwVen:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrwVen:nColDividerStyle := LINESTYLE_LIGHTGRAY oBrwVen:nRowDividerStyle := LINESTYLE_LIGHTGRAY oBrwVen:l2007 := .t. oBrwVen:lrecordselector := .f. oColVen:=oBrwVen:AddCol() oColVen:cHeader := "Pedido" oColVen:bStrData := { || VENDA->Pedido } oColVen:nDataStrAlign := AL_LEFT oColVen:nHeadStrAlign := AL_LEFT oColVen:nWidth := 50 oColVen:=oBrwVen:AddCol() oColVen:cHeader := "Total Pedido" oColVen:bStrData := { || trans(VENDA->VlTotal,"@E 999,999,999.99") } oColVen:nDataStrAlign := AL_LEFT oColVen:nHeadStrAlign := AL_LEFT oColVen:nWidth := 90 REDEFINE BUTTONBMP oBotonBMP[2] ID 20 OF oDlgCad ACTION ( lSalvar:=.F.,oDlgCad:End() ) ; PROMPT "&Cancelar" ; BITMAP "Botao_Sair" TEXTRIGHT ; TOOLTIP "Cancelar" ACTIVATE DIALOG oDlgCad CENTERED ON INIT (SetImages( oDlgCad, oFld )) //ON PAINT IIF(lDel==.T.,.f.,NIL) Return .t. ** STATIC function SetImages( oDlgCad, oFld ) local oImageList DEFINE IMAGELIST oImageList SIZE 16, 16 oImageList:AddMasked( TBitmap():Define( "FOLDER_DADOS",, oDlgCad ), nRGB( 192, 192, 192 ) ) oFld:SetImageList( oImageList ) return nil **
-
blz Kap, só vou poder testar mais tarde qualquer coisa te aviso
-
http://www.flexdocs.com.br/guianfe/funcao.assinatura.assinarNFCE400.html string AssinarNFCE400(string NFCe, string NomeCertificado,string idToken, string CSC, string versaoQRCode, string URLConsulta, string urlChave, string indSinc,out int resultado, out string msgResultado, out string lote, out string urlNFCe) URLConsulta string entrada A URL do portal de consulta da NFC-e é obtida pela DLL no arquivo ws3.xml com base no grupo da UF informada no XML da NFC-e, caso o usuário informe a URL, ela será utilizada para gerar a URL de consulta da NFC-e. Consulte as URL no ENCAT urlChave string entrada Texto com a URL de consulta por chave de acesso a ser impressa no DANFE NFC-e. Informar a URL da “Consulta por chave de acesso da NFC-e”. A mesma URL que deve estar informada no DANFE NFC-e para consulta por chave de acesso Consulte as URL no ENCAT. (campo novo)
-
eu também não entendi meu programa ele consegue assinar normalmente If oNFeUtil:EnviaNFe( cDocXml, @cXmlAssinado, @cRecibo,@cDataRecebimento ) * msgALERT("Nota Enviada com Sucesso!!!") cAcesso = acesso Else Return(.f.) Endif vonfeutil2g_v4 Method Assinar(cXmlDoc, cRefURI, cXmlAssinado,cIdToken,cCSC,cUrlConsulta,cRetLote ,cUrlNFCe) Class TVoNFeUtil2G Local nRet:=1,Mensagem:="",lRet:=.t. Default cXmlDoc:="" Default cXmlAssinado:="" Default cRefUri:="infNFe" Default cIdToken:="" Default cCSC:="" Default cUrlConsulta:="" Default cRetLote:="" Default cUrlNfCe:="" If ::CertificadoSelecionado() TRY If Empty(cIdToken) cXmlAssinado:=::oNFEUtil:Assinar(cXmlDoc, cRefURI, ::cCertificado, @nRet, @Mensagem) Else // cUrlChave criei para direcionar a url cXmlAssinado := ::oNFEUtil:AssinarNFCE400( cXmlDoc, ::cCertificado , cIdToken, cCSC, "100" , cUrlConsulta , cUrlChave, "0" , @nRet , @Mensagem , @cRetLote, @cUrlNfCe) Endif CATCH ? "não esta sendo usado dll" Return(.f.) END TRY If nRet<>5300 If ::lMensagem ::GeraLog(Mensagem) lRet:=.f. #IFDEF __DOS__ Alert( hb_ansitooem( Mensagem+"-"+Procname() ) ) #ELSE MsgStop( Mensagem+CRLF+Procname() ,CAPTION_MSG ) #ENDIF Endif Endif Endif Return( lRet )
-
não deu 399, somente essa mensagem
-
Alguém já viu esse roo da 5505 5505 - Erro: XML não atende a especificação do Schema XML: [nfe_v4.00.xsd] , analise a lista de erros: [1 - Linha:0001 Coluna:2598 Campo:[qrCode] Conteúdo:[NIHIL] Erro:O elemento 'http://www.portalfiscal.inf.br/nfe:qrCode' é inválido - O valor 'https://appnfc.sefa.pa.gov.br/portal/view/consultas/nfce/nfceForm.seam?chNFe=15180808267828000112650020000000271000000271&nVersao=100&tpAmb=2&dhEmi=323031382d30382d30395430393a35353a33322d30333a3030&vNF=3.00&vICMS=0.00&digVal=756c697262566638476b7861633 05577326c6b6c6545342b5a71513d&cIdToken=1&cHashQRCode=CBE4EB8BB4B21A47E51C0CAA9FAD82ADE48394D0' é inválido dependendo do tipo de dados 'String' - Falha na restrição Pattern. ] - TVONFEUTIL2G:VALIDAXML 1 - Linha:0001 Coluna:2598 Campo:[qrCode] Conteúdo:[NIHIL] Erro:O elemento 'http://www.portalfiscal.inf.br/nfe:qrCode' é inválido - O valor 'https://appnfc.sefa.pa.gov.br/portal/view/consultas/nfce/nfceForm.seam?chNFe=15180808267828000112650020000000271000000271&nVersao=100&tpAmb=2&dhEmi=323031382d30382d30395430393a35353a33322d30333a3030&vNF=3.00&vICMS=0.00&digVal=756c697262566638476b7861633 05577326c6b6c6545342b5a71513d&cIdToken=1&cHashQRCode=CBE4EB8BB4B21A47E51C0CAA9FAD82ADE48394D0' é inválido dependendo do tipo de dados 'String' - Falha na restrição Pattern.
-
Obrigado por reponderem Dei uma olhada no forum http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35791#p213239 , compilei no FW 16.08, não funcionou, pelo queeu li ainda está em teste e funciona no FW 18. Uma solução é adquiri do FW 18, mas vou fazer meus testes no que eu tenho e qualquer coisa posto no forum
-
Estou tentado fazer a integração com cappta, este é o modelo em .net using System; using Cappta.Gp.Api.Com; namespace CappAPIIntegration { class Program { static void Main(string[] args) { ClienteCappta cappta = new ClienteCappta(); string cnpj = "00000000000000"; int pdv = 8; string chaveAutenticacao = "2C1CE88C6A0C4FA6BF2D519B1DB31DF4"; int resultadoAutenticacao = cappta.AutenticarPdv(cnpj, pdv, chaveAutenticacao); if (resultadoAutenticacao != 0) { Console.WriteLine("Não foi possível autenticar com o CapptaGpPlus"); return; } } } }
-
xDll := LoadLibrary("arquivo.dll") iRetorno := Autentica(cnpj,pdv,chaveAutenticacao) if iRetorno # 0 MsgAlert("Não foi possível autenticar ","Atenção") return Endif //-------------------------------------------------------------------- Function Autentica(cnpj,pdv,chaveAutenticacao) Return DllCall( xDll, 32, "Autenticar","cnpj,pdv,chaveAutenticacao")
-
Bom dia a todos Estou tentado trabalhar com uma dll externa e não estou conseguindo, tentei com calldll e nada. Compilo os meus programas com FW 16.08. Se alguém tiver uma dica ficarei grato.
-
Bom dia Rochinha
Você a integração do sistema TEF com a CAPPTA?
-
Fiz alguns testes, mas ainda não funcionou. Tem como você postar o código
-
A minha nota fiscal já funcionou normalmente com a nova versão do Gilme, mas o cupom eletrônico não está assinando. O comando que estou utilisando é este: If !oNFeUtil:ValidaXml(cDocXml, 68,@cXmlAssinado,"000001","000001") return( .f. ) Endif Erro invalido para xml 3.00 e 3.10 Acredito que seja essa chamada. Se alguém poder me ajudar ficarei grato.
-
Bom dia a todos Gostaria de saber se consigo atualizar um banco de dados MySQL na Web com o fivewin. Tenho o FiveWin 16.08 e estou fazendo alguns testes.
-
Este comando onde é colocado não está aceitando como variável: Alltrim(Substr(oFTP:acDir[nLin],n_At,256)) AADD(a_Fls, Alltrim(Substr(oFTP:acDir[nLin],n_At,256)) ) Coloquei o arquivo fixo, não era que eu queria, mas resolveu o meu problema AADD(a_Fls, "arquivo.txt") Obrigado novamente pelas resposta, vou dar uma estudada no XAMPP t+
-
Obrigado pelas repostas, vou verifica as restrições no ftp e fazer essas imprementações
-
Estou fazendo uns testes com FTP eu consigo enviar normalmente para a área, mas não consigo fazer o download e nem dar erro. Se alguém poder me ajudar ficarei agradecido. ***************** Function FTPDOWN() ***************** local oWin cConexao := Space(100) cArquivo := Space(100) cMensagem := Space(100) DEFINE WINDOW oWin TITLE "FTP Recebe Resultados do Site" oWin:Center() @ 05,20 SAY oConexao VAR cConexao OF oWin SIZE 300,12 PIXEL @ 20,20 SAY oArquivo VAR cArquivo OF oWin SIZE 300,12 PIXEL @ 35,20 SAY oMensagem VAR cMensagem OF oWin SIZE 300,08 PIXEL ACTIVATE WINDOW oWin ON INIT FTPRecebe(oWin) return nil *-------------------( Ler no ftp )------------------* Function FTPRecebe() LOCAL cMsg := "", lNovo := .F. c_Ftp := "ftp.site.com.br" c_Usr := "usuario@site.com.br" c_Psw := "12345678" c_Fld := "" //"public_resultados" //ALLTRIM(CONTROLE->FTP_FLD) cDirCar := cDirTrb+"\Carga" cDirRet := cDirTrb+"\Carga\Retorno" If !lIsDir( cDirCar ) lMkDir( cDirCar ) Endif If !lIsDir( cDirRet ) lMkDir( cDirRet ) Endif cFldEn := cDirRet Ferase(cDirRet+"\PEDIDO.TXT") Ferase("logftp.txt") TRY oFTP := qFTPClient():New(c_Ftp, 21, {|cMessage| Logfile("logftp.txt",{cMessage})},,c_Usr, c_Psw) oFTP:lPassive := .T. if oFTP:Connect() cConexao := "Connection successful to " + oFTP:cServer + " " + oFTP:cServerIP + " " + oFTP:oSocket:ClientIP() oConexao:Refresh() if oFTP:Cd(c_Fld) if oFTP:Dir() a_Fls := {} FOR nLin := 1 TO LEN(oFTP:acDir) IF ".TXT" $ Alltrim(Substr(oFTP:acDir[nLin],40,256)) // Não pegar se não for txt (ex: index.php) n_At := AT("ARPED_", oFTP:acDir[nLin]) AADD(a_Fls, Alltrim(Substr(oFTP:acDir[nLin],n_At,256)) ) cArquivo := "Aguarde REcebendo..."+a_Fls[I,1] oArquivo:Refresh() ENDIF NEXT IF LEN(a_Fls) > 0 for nPd := 1 TO LEN(a_Fls) c_Arq := a_Fls[nPd] IF ! EMPTY(c_Arq) IF ! FILE(cFldEn+"\"+c_Arq) lRtr := oFTP:Retr(c_Arq, cFldEn+"\"+c_Arq) // c_Fld+"/"+ IF lRtr lNovo := .T. MsgAlert(c_Arq, "Novo pedido") ELSE MsgAlert(c_Arq+": Não recuperado", "Pedido externo") ENDIF ENDIF ENDIF next ENDIF oFTP:Quit() oFTP:End() else oFTP:Quit() oFTP:End() endif else oFTP:Quit() oFTP:End() endif endif CATCH oErr MsgAlert(oErr:Description, "Erro de FTP") END TRY RETURN NIL
-
Agradeço a todos que me ajudaram, depois de apanhar um pouco descobri que o meu res estava danificado.
-
Desculpe a demora em responder, essa semana foi complicada. Fiz este modelo só para teste, CAD_PRODUTO foi só pata testar, adicionei no RC CAD_PRO1, CAD_PRO2, CAD_PRO3, e mudei no sistema, não funcionou. Quando rodo fica assim e não consigo sair da tela tem que ficar assim TELAS.RES
-
Estou fazendo uns testes no Folder com Pelles C, mas quando abro a rotina o cadastro não fica no meio do folder e nem tenho controle para sair da tela, já estou utlizando a versão 16.08 do fivewin. Desde já agradeço pela ajuda. #include "FiveWin.ch" #include "InKey.ch" #include "xbrowse.ch" #Include "Folder.ch" ....... Static function EditPro( oRec, oBrw ) local lNew := ( oRec:RecNo == 0 ) local oDlg, oFld, oFont DEFINE FONT oFont NAME "ARIAL" SIZE 0,-12 DEFINE FONT oFont_Banner01 NAME "Verdana" SIZE 0, -18 BOLD DEFINE FONT oFont_Banner02 NAME "Verdana" SIZE 0, -10 BOLD DEFINE DIALOG oDlg RESOURCE "FOLDER_CAD" TITLE If( lNew, "Incluir", "Alterar" ) + " Registro" FONT oFont REDEFINE BITMAP ID 5000 RESOURCE "BANNER" OF oDlg ADJUST REDEFINE FOLDER oFld ; PROMPTS "Dados", "Fiscal", "Teste 3" ; DIALOGS "CAD_PRODUTO", "CAD_PRODUTO", "CAD_PRODUTO" ; ID 1000 OF oDlg // PAGINA 01 REDEFINE GET oRec:CODBAR ID 101 OF oFld:aDialogs[1] // PAGINA 02 REDEFINE GET oRec:DESCRICAO ID 102 OF oFld:aDialogs[2] // PAGINA 03 REDEFINE GET oRec:LOCAL ID 103 OF oFld:aDialogs[3] REDEFINE BUTTON ID 20 OF oDlg ACTION (lSalvar:=.F.,oDlg:End()) ACTIVATE DIALOG oDlg CENTERED return nil
-
a xdev não adiciona automaticamente as libs novas, se deve adicionar como se fosse um programa
-
Boa noite João Só´este horário que estou conseguindo responder, eu já tinha feito isso. Vou fazer dois testes: 1) O meu windows é o 10,vou desinstalar e instalarnovamente 2) Vou instalar no window 7 e testar Assim que eu fizer os testes dou uma resposta.