SISCO

pode ser se sim , vou testar

Não entendi essa aparentemente está tudo normal, o resto dos pagamentos funciona normalmente -<pag> -<detPag> <tPag>17</tPag> <vPag>5.00</vPag> </detPag> </pag> ERRO ======= 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:2025 Campo:[tPag] Conteúdo:[17] Erro: O elemento http://www.portaslfiscal.info.br/nfe:tPag é invalido – O valor ‘17’ é inválido depedendo do tipo de dados ‘String’ – Falha na restrição Enumeration. 2 – Linha:0001 Coluna 2152 Campo:[NIHIL] Conteúdo:[NIHIL] Erro: O elemento ‘Nfe’ no espaço para nome http://www.portaslfiscal.info.br/nfe apresenta conteudo incompleto. Lista de possível elemento esperados: ‘infNFeSupl’ no espaco para nome ‘http://www.w3.org/2000/09/xmlsign#]

Já tinha dobrado o tamanho do campo e não funcionou, mas consegui resolver. Resolvi apagar o edit e criar novamente, acho que foi algum bug no pelles, descobri copiando a mesma informação para o campo complemento e funcionou normal. Novamente agradeço a ajuda de todos

Fiz o teste com copia para editor de texto funcionou normal. Fiz um teste da seguinte forma alterando o tamanho da minha edit ficou um pouco melhor, mas não copiou tudo. Pode ser algo referente a font ou a aversão do meu pelles muito antiga 6.50.0 1999-2010 Tentei instalar outra versão, mas não consegui. Só amanhar vou poder ver novamente, assim que eu encontrar uma solução posto Mas desde já agraço aos universitários

SIM É A MESMA TELA

Não sei se alguém teve esse tipo de problema, quando estou em uma tela feita em pelles e tento copiar um descrição ao colar em outra tela pelles vai só a metade da descrição. Ex.: ABOTOADURA COM PRENDEDOR DE GRAVATA ==> copiar colar ==> ABOTOADURA COM Já verifiquei o tamanho do campo recebido está do mesmo tamanho. Se alguém tiver a solução, ficarei grato.

Tenho duas tabelas no mysql um com o pedido e outro com o seu detalhe (produtos), quando gravo o pedido tenho que pegar o seu id e colocar no detalhe, fiz da seguinte forma e funcionou normal: oRSpedido := ConectaBD():RowSet( "SELECT * FROM pedido ORDER BY id DESC LIMIT 1" ) Mas se estamos tratando de rede, preciso prever vários usuário acessando ao mesmo tempo, fiz desta forma e não funcionou mais: oRSpedido := ConectaBD():RowSet( "SELECT * FROM pedido WHERE nomusu = " + AllTrim(cNomUsu) + " ORDER BY id DESC LIMIT 1" ) cNomUsu é o usuário que está lançando o pedido Quando rodo esse comando direto no banco de dados funciona normalmente. Tem uma outra forma de se fazer isso?

Bom dia Obrigado a todos pela ajuda. Eu já utilizo o Fast para alguns relatórios ele funciona normal para DBF e SQLRDD. Quanto ao nativo com MySQl não encontrei material da forma que eu gostaria de usar, acabei gerando pelo Array que utilizo no xBrowse e ficou assim: substitui essa linha oFrPrn:SetWorkArea("oRsPdvDetR", select("oRsPdvDetR")) para X := 0 ASORT(aPdvDet,,,{|x,y| (x[2]) < (y[2]) }) oFrPrn:SetUserDataSet("aPdvDet", "id_produto;descpro;qtdpro;unidade;vlunitario;vltotpro", ; {||x := 1}, ; //--> bGoTop {||x := x + 1}, ; //--> bSkipPlus {||x := x - 1}, ; //--> bSkipMinus {||x > Len(aPdvDet)}, ; //--> bCheckEOF {|aField|nCol := IIF( aField == "id_produto" , 1,; IIF( aField == "descpro" , 2,; IIF( aField == "qtdpro" , 3,; IIF( aField == "unidade" , 4,; IIF( aField == "vlunitario" , 5,; IIF( aField == "vltotpro" , 6, 7 )))))), aPdvDet[x, nCol] } )

Não estou conseguindo gerar relatório apartir de um banco MySQL Não encherga o banco no design do relatório Acesso ao banco nativo do fivewin oRsPdvDetR := ConectaBD():RowSet( "SELECT * FROM pdvdet WHERE id_pdvcab = " + AllTrim(Str(nId_PdvCab))) ConectaBD():Close() IF oRsPdvDetR == NIL .OR. oRsPdvDetR:EOF() MsgAlert("Verifique Pedido de Venda. Não foi encontrada","Atenção") Return .f. ENDIF cImagem1 := ".\bmp\logopdv.bmp" RepDir := ".\REPORT\" oFrPrn := frReportManager():new() oFrPrn:SetIcon(1) //ícone da janela do FRH // oFrPrn:SetTitle( cTitulo ) //título da janela do FRH // oFrPrn:SetTitle( cTipo ) //título da janela do FRH // oFrPrn:SetTitle( cUSUARIO ) //título da janela do FRH oFrPrn:SetTitle( cImagem1 ) //título da janela do FRH oFrPrn:LoadLangRes( 'brazil.xml') //arquivo de idioma oFrPrn:SetWorkArea("oRsPdvDetR", select("oRsPdvDetR")) oFrPrn:PreviewOptions:SetAllowEdit( .F. ) oFrPrn:PreviewOptions:SetZoomMode(2) oFrPrn:PreviewOptions:SetOutlineExpand(.F.) oFrPrn:LoadFromFile(RepDir+"RELPDV.FR3") // para leitura direta de arquivo FR3 IF lDesig oFrPrn:DesignReport() // Exibe estrutura do relatório para configurar oFrPrn:ShowReport() ELSE // oFrPrn:ShowReport() // aqui para gerar o preview do relatório. oFrPrn:PrintOptions:SetShowDialog(.F.) // .f. Direto na impressora oFrPrn:PrepareReport() // Inicia um relatório sem janela de visualização oFrPrn:Print( .T. ) ENDIF oFrPrn:DestroyFR()

Bom dia todos Não sei se seria aqui que deveria tocar neste assunto ou criar um novo topico. Como ficaria em relação a segurançã de dados nas nuvens?

Obrigado pela resposta

Só pra tira uma duvida, o fivewin versão 16 em diante continua com esse padrão de 10 caraceteres para nome de variável

Bom dia Consegui resolver o problema Select ficou assim o_produto := oCon:Execute( "SELECT id, descricao, qtdest, unidade , vlunidade, vlmaster, vlundmast, vlcusto, (((vlmaster/vlCusto)-1)*100) AS 'margem', qtdmin FROM produto ORDER BY descricao" ) calculo direto no select e criado uma AS margem xBrowse exibo com nome criado COLUMNS 'id','descricao','qtdest','unidade','vlunidade','vlmaster', 'vlundmast', 'vlcusto', 'margem', 'qtdmin' Posso usar 'id' ou o_produto:Fields[ "id"]:Value()

Bom dia Obrigado pelaS respostas, só consigo responder pela manhã. Não funcionou, vou dar mais uma estudada se conseguir resolver coloco no grupo Quanto ao banco de dados nativo não sei se tem muito material, e devido a isso acabei optando pelo ODBC

Bom dia a todos Estou convertendo o meu sistema para Banco de Dados MySQL, já consegui fazer a conexão via ADO, mas estou tendo alguns problemas com xBrowse. 1) Campo tipo Date na coluna 2) Somatória na Coluna DEFINE DIALOG oDlg RESOURCE "BROWSER_PRO" TITLE cSt_MODULO FONT oFont REDEFINE BITMAP ID 5000 RESOURCE "BANNER" OF oDlg ADJUST REDEFINE SAY OSt_MODULO VAR cSt_MODULO ID 5001 OF oDlg FONT oFont_Banner01 PICTURE "@X" COLORS CLR_BLACK, RGB(198, 255, 198) UPDATE REDEFINE XBROWSE oBrw ID 100 OF oDlg DATASOURCE o_produto ; COLUMNS "id","descricao","qtdest","unidade","vlunidade","vlmaster", "vlundmast", "vlcusto", "(((vlmmaster/vlCusto)-1)*100)", "qtdmin" ; COLSIZES 40, 280, 70, 30, 70, 70, 70, 70, 70, 70, 70 ; HEADERS "id", "Descrição", "Estoque", "Und", "Vl.Unit.", "Vl.Master", "Vl.Und.Mast", "Vl.Custo", "Margem", "Est.Minimo" ; PICTURES '99999', nil, '@E 999,999.999', nil, '@E 999,999.99', '@E 999,999.99', '@E 999,999.99', '@E 999,999.99', '@E 999.999', '@E 99,999.99' ; CELL LINES NOBORDER oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL // Estilo da linha selecionada MARQSTYLE_HIGHLROW - Linha Azul // MARQSTYLE_HIGHLCELL - grade azul oBrw:lVScroll := .T. // Barra rolagem vertical oBrw:lColDividerComplete := .f. // Sem grade no browse oBrw:nHeaderLines := 1 // Altura encabezamiento oBrw:nDataLines := 1 // Altura líneas oBrw:lRecordSelector := .t. // poner o no, COL de la flechita de la izq oBrw:bClrStd := { || { CLR_BLACK, ColorFundo(oBrw:aCols[3],oBrw:aCols[10]) } } // Efecto pijama oBrw:bKeyDown:={|nKey| ProcKeyProduto(nKey,oBrw,oDlg)} oBrw:SetFocus()

infoxxi@hotmail.com

Bom dia Já faço a comunicação, me manda o layout para eu verificar, se tiver uma arquivo modelo seria melhor

Bom dia a todos Estou mudando para MySQL, mas o exemplo que tenho de conexão é da versão 9 do FiveWin, e a minha versão é a 16.08, está dando muito erro na compilação e não estou conseguindo rodar, utilizo o xDev para compilar. Se alguém tiver um modelo do programa principal e a a conexão mais recente ficarei grato.

Function FiltraPro(oLbx) PRODTMP(.T.) USE PRODUTO(.F.) cProTmp := cDirTrb+"PRODTMP.dbf" Copy FOR RTrim(cDescPro) $ PRODUTO->Descricao to &cProTmp //? "Fim da Pesquisa" PRODTMP(.T.) oLbx:UpStable() oLbx:Refresh() Return .t.

Obrigado por responder Kapi Testei, mas não funcionou, uma saída é mandar direto para impressora assim evito de minimizar o preview, tem usuário que se enrola pra dar Alt+Tab. Mesmo assim obrigado

Tenho uma tela de pedido, quando finalizo chama uma tela de fechamento para informar a forma de pagamento e depois imprimo o pedido em papel A4 como PREVIEW. Mas quando dou o SETFOCUS para voltar para o código de cliente para digitar o próximo pedido ele simplesmente minimiza o PREVIEW. Como faço para maximar novamente via programa ou uma solução para não minimizar? Function RtGravaPDV(lAppend,nOpcPDV,oDlgNota) ... RelPDV2(lAppend,nOpcPDV) oCodCli:SETFOCUS() OBTN2:OJUMP:=oCodCli Return .t. FUNCTION RelPDV2(lAppend,nOpcPDV) Private oPrn Private nFlag,nLinha,nPagina * PRINTERSETUP() Printer oPrn DOC "Pedido de Venda" PREVIEW // modo grafico com preview oPrn:SetLandScape() // Impreesão tio Paisagem .... oPrn:EndPAGE() EndPrint Return .T.

Obrigado pelas respostas. O código 590 é anterior a 2012 e a SEFA recusa. Redação anterior dada ao Anexo Único pelo Ajuste SINIEF 03/10, efeitos de 01.10.10 até 30.11.12.

Bom dia a todos Estou com um cliente do simples que o seu fornecedor está exigindo que a devolução da mercadoria seja feito com CSOSN 590, não estou encontrando nada a respeito. Se alguém tiver um modelo de xml com esse código ficarei grato

Bom dia a todos Será que alguém sabe me dizer se consigo baixar um xml direto da SEFA? Como faço?

Funcionou Kap Obrigado REDEFINE LISTBOX oLbxCodBar ; FIELDS "" ,"" ; HEADERS "Código","Und" ; FIELDSIZES 80 , 15 ; ID 8000 OF oFld:aDialogs[1] oLbxCodBar:SetArray( aItens ) oLbxCodBar:bLine := { || { aItens[oLbxCodBar:nAt,1] , aItens[oLbxCodBar:nAt,2] } } oLbxCodBar:nLineStyle := 3 oLbxCodBar:aJustify := {.F.,.F.} oLbxCodBar:lAutoEdit = .T. oLbxCodBar:Refresh()