sistem

a impressora ta configurada em PPLA OU PPLB? caso esteja em PPLB (nao eh o padrao) veja o codigo abaixo: inicio teste.txt : N R0,0 Q0 ZT S2 D8 B080,002,0,E30,1,1,45,N,"1234567890123" A088,050,0,1,1,1,N,"QUALQUER COISA" B260,002,0,E30,1,1,45,N,"1234567890123" A268,050,0,1,1,1,N,"QUALQUER COISA" ... .. . P10 fim teste.txt obs: //P<<QTD>> //--------------------------------------------------------------------------------------------- /* A = Campo de texto Ap1,p2,p3,p4,p5,p6,p7,Data<LF> p1 = posição eixo X em pontos p2 = posição eixo Y em pontos p3 = rotação (0->normal,1->90graus,2->180graus,3->270graus) p4 = tipo de fonte (1 a 5) p5 = multiplicador horizontal das fontes p6 = multiplicador vertical das fontes p7 = N-> imagem normal, ou R-> imagem em reverso Data = dados a serem impressos B = Código de barras Bp1,p2,p3,p4,p5,p6,p7,p8,Data p1 = posição eixo X em pontos p2 = posição eixo Y em pontos p3 = rotação (0->normal,1->90graus,2->180graus,3->270graus) p4 = tipo de código de barra p5 = largura da barra estreita p6 = largura da barra larga p7 = altura do código de barras em pontos p8 = impressão da linha de interpretação (B-> sim; N-> não) Data = dados a serem impressos */ link para transformar ppla para pplb http://www.mktcdc.com.br/suporte_tecnico/wp-content/uploads/2012/10/cdcss_atualiza%C3%A7%C3%A3o_troca_firmware_site1.pdf []s

fnl Onde encontro a NT versão 1.10? Aqui a sefaz ceará não tem conhecimento dessa NT nao. sefaz ceara 0800 707 85 85 poxa, to mais perdido que surdo em bingo

a

já uso a classe nf-e e tambem tenho interesse na NFC-e.

Ola amigo sergio optei pela versao 10,x pq ser a ultima versao que tem no site do mariaDB. Embedded = embutido, sim esta junnto com o inno setup veja o link: http://fivewin.com.br/index.php?/topic/21305-instalador-com-o-mysql/ se precisar de ajuda eh soh falar aki

Jackson Consegui pôr para funcionar. não precisei mudar nada no codigo fonte e ainda ta embutido no usando o inno setup. usando MariaDB 10. Embedded

Ola Forum Alguem teria um exemplo de conexao SR_AddConnection usando MariaDB? outra pergunta Alguem conseguiu fazer o MariaDB embarcado? acho que seja por isto q nao estou conseguindo sucesso com a conexao.

uso sqlrdd no estilo xBASE, dai nao sera de grande ajuda. o codigo é o mesmo do DBF para relatorio uso comando sql

Ariston veja se ajuda http://forums.fivetechsupport.com/viewtopic.php?f=6&t=25937&p=142022&hilit=sqlrdd#p142022

ola Jackson é possivel usar o MARIADB com SQLRDD? é 100% compatível com MySQL? []'s

DEFINE BRUSH oBrush COLOR 14671839 // cinza ... .. box(4.2, 9, 4.7, 20.5 ,oPrn,1,oBrush) // caixa extenso linha1 box(4.9, 5, 5.4, 20.5 ,oPrn,1,oBrush) // caixa extenso linha2 oPrn:cmSay( 4.3, 09.3, LEFT(Extenso, 66), oFnt ) oPrn:cmSay( 5.0, 5.3, Subs(Extenso, 67, 66), oFnt ) *---------------------------------------------------------------------------------------- /* box em cms nUp,nLeft,nDown,nRight := Coordenadas em Centimetros oPrn := Objeto Printer oBrush := Objeto Brush para box cheio nTipo := Tipo de box (0-vazio) (1-cheio) oPen := Objeto oPen para box vazio */ Function Box(nUp,nLeft,nDown,nRight,oPrn,nTipo,oBrush,oPen) Local xCor := {} , yCor := {} // coordenadas de cms a pixel xCor := oPrn:Cmtr2Pix(nUp,nLeft) yCor := oPrn:Cmtr2Pix(nDown,nRight) DO CASE CASE nTipo == 0 // box vazio oPrn:Box(xCor[1],xCor[2],yCor[1],yCor[2],oPen) CASE nTipo == 1 // box cheio oPrn:FillRect({xCor[1],xCor[2],yCor[1],yCor[2]},oBrush) ENDCASE Return nil

Amigo Marcio soh comentei para esclarecer pois o topic é a respeito de android, por isso falei do windev mobile para dar ênfase. +cada um sabe o que é melhor para si e usa a linguagem que seja melhor para si

quando falei em windev estava me referindo a programacao de dispositivo móvel, windev mobile. Em relacao a programacao para desktop o FIVEWIN atende perfeitamente.

gente o windev é coisa do outro mundo http://www.pcsoft-windev-webdev.com/WM18brochure_PT.pdf estou baixando o demo

Jackson que seria isto => USERINFO_CNPJ ? CNPJ do certificado cadastrado?

tenho interesse, favor contatar no email: sistem.siav@gmail.com

Quem nunca leu o livro do Antonio Geraldo da Rocha Vidal. procurando na net encontrei esse pagina: http://www.fea.usp.br/perfil.php?u=14&tab=adm&i=27 aproveitando, quem tem aqueles dois livros dele de clipper summer 87 e quiser vender tenho interesse.

tentei o seguinte com base em xbrowse com array que tenho aki:(aplicando em tabela) n1=1 ... .... .. oLbxFami:bClrStd := {|| { CLR_WHITE, If(n1%2==0, CLR_BRW1, CLR_BRW2) } } oLbxFami:SetRDD() oLbxFami:bBookMark = { | nBkm | If( nBkm == nil, n1, n1:=nBkm ) } oLbxFami:bSkip = { | nSkip | Skp( Fami->(lastrec()), @n1, nSkip ) } *-------------------------------------------------------------------------------- FUNCTION Skp( nLastrec, n1, nSkip ) LOCAL nOld := n1 DEFAULT nSkip := 1 n1 += nSkip If n1 > nLastrec n1 = nLastrec Endif If n1 < 1 n1 = 1 Endif Return n1 - nOld o xbrowse fica com zebra mais os dados ficam repetindo, o mesmo dado do inicio do browse

emotta tem esse topico no forum internacional, achei meio complicado dai nao fiz teste http://forums.fivetechsupport.com/viewtopic.php?f=3&t=24327&p=138645&hilit=sqlrdd+xbrowse+ORDKEYNO#p138645

para atualizar as estacoes tente isto: nLenArq := Len(Alltrim(oApp:cDir_002))-5 cDir1 := HB_MD5File(oApp:cDir_001+"siav.exe") // seu executavel local cDir2 := HB_MD5File(Left(oApp:cDir_002,nLenArq)+"siav.exe") // seu executavel em rede alterar da forma que o amigo usa cDirSrv := Left(oApp:cDir_002,nLenArq)+"siav.exe" If cDir1 # cDir2 If MsgYesNo("Versão SIAV diferente da versão do servidor."+CRLF+"deseja atualizar agora? (o sistema será reiniciado)"+CRLF+"ORIGEM: "+cDirSrv+CRLF+"DESTINO: "+oApp:cDir_001, "Aviso!") FreeLib32( xDll ) FreeLib32( xDlldr ) FreeLib32( xDlldr32 ) FreeLib32( xDllElgin ) DbCloseAll() SET RESOURCES TO SR_EndConnection( nConn0 ) SR_EndConnection( nConn1 ) SR_End() cAtuInf := "TASKKILL /IM siav.exe /F"+CRLF+; "XCOPY /Y /D "+cDirSrv+" "+oApp:cDir_001+CRLF+; "SISTEM.EXE" fErase(oApp:cDir_001+"update.bat") Arq2 := fcreate(oApp:cDir_001+"update.bat") fWrite(arq2, cAtuInf) fClose(arq2) SysRefresh() WinExec(oApp:cDir_001+"update.bat",0) SYSWAIT(5) Endif Endif Return nil dai eh soh abrir o executavel que vai esta atualizado. espero ter ajudado

ola forum alguem saber como pôr linhas do xbrowse com cores diferente usando sqlrdd+mysql tipo zebra com dbf da certo mais queria saber com mysql e sqlrdd obrigado antecipadamente

Theotokos vlw obrigado

tem alguma função que mostre o numero da linha, tipo: alert("linha numero"+NumeroDaLinhaDo PRG()) []s

::oNFe:SetValue("ide" , 'serie' , ::GetInfHtml("N",,"Série",, ::oIE:document:getElementById("NFe"):InnerHTML) ) ::oNFe:SetValue("ide" , 'nNF' , ::GetInfHtml("N",,"Número",,::oIE:document:getElementById("NFe"):InnerHTML) ) ::oNFe:SetValue("ide" , 'dEmi' , ::GetInfHtml("D",,"Data de emissão",, ::oIE:document:getElementById("NFe"):InnerHTML) ) .. ... .... ... cHtmlProd := Alltrim(::cBoDyHtml) cHtmlProdDup := Alltrim(::cBoDyHtml) nLinhaLidas := LinhaLidas("prod-serv-descricao", cHtmlProd) nLinhaTam := Len(cHtmlProd) nSizeCont := nLinhaTam-nLinhaLidas cHtmlProd := Right(cHtmlProd, nSizeCont) Do While .t. nLinhaLidas := LinhaLidas("prod-serv-descricao", cHtmlProd) If nLinhaLidas > 0 oItem := TVoNFeProd() WITH OBJECT oItem :cProd := CapProd("Código do Produto</LABEL><SPAN class=linha>", cHtmlProd) :cEAN := CapProd("Código EAN Comercial</LABEL><SPAN class=linha>", cHtmlProd) :xProd := CapProd("prod-serv-descricao><SPAN class=multiline>", cHtmlProd) :NCM := CapProd("Código NCM</LABEL><SPAN class=linha>", cHtmlProd) :CFOP := CapProd("CFOP</LABEL><SPAN class=linha>", cHtmlProd) :uCom := CapProd("Unidade Comercial</LABEL><SPAN class=linha>", cHtmlProd) :qCom := CapProd("Quantidade Comercial</LABEL><SPAN class=linha>", cHtmlProd) :vUnCom := CapProd("Valor unitário de comercialização</LABEL><SPAN class=linha>", cHtmlProd) :vProd := CapProd("prod-serv-vb><SPAN>", cHtmlProd) :cEANTrib := CapProd("Código EAN Tributável</LABEL><SPAN class=linha>", cHtmlProd) // :EXTIPI := CapProd("Código EX da TIPI</LABEL><SPAN class=linha>") // :genero := CapProd("Gênero</LABEL><SPAN class=linha>") // :vOutro := CapProd("Outras Despesas Acessórias</LABEL><SPAN class=linha>") :uTrib := CapProd("Unidade Tributável</LABEL><SPAN class=linha>", cHtmlProd) :qTrib := CapProd("Quantidade Tributável</LABEL><SPAN class=linha>", cHtmlProd) :vUnTrib := CapProd("Valor unitário de tributação</LABEL><SPAN class=linha>", cHtmlProd) :vFrete := CapProd("Valor Total do Frete</LABEL><SPAN class=linha>", cHtmlProd) :vSeg := CapProd("Valor do Seguro</LABEL><SPAN class=linha>", cHtmlProd) :vDesc := CapProd("Valor do Desconto</LABEL><SPAN class=linha>", cHtmlProd) :indTot := Left(CapProd("Indicador de Composição do Valor Total da NF-e </LABEL><SPAN class=linha>", cHtmlProd),1) // :csosn := // :pCredSN := // :vCredICMSSN := // :cST_IPI := // :vBcIPI := // :pIPI := // :vIPI := :orig := Left(CapProd("Origem da Mercadoria</LABEL><SPAN class=linha>", cHtmlProd),1) :cCST := Left(CapProd("Tributação do ICMS</LABEL><SPAN class=multiline>", cHtmlProd),2) :ModBC := Left(CapProd("Modalidade Definição da BC ICMS NORMAL</LABEL><SPAN class=linha>", cHtmlProd),1) :vBC := CapProd("Base de Cálculo do ICMS Normal</LABEL><SPAN class=linha>", cHtmlProd) :pIcms := CapProd("Alíquota do ICMS Normal</LABEL><SPAN class=linha>", cHtmlProd) :vIcms := CapProd("Valor do ICMS Normal</LABEL><SPAN class=linha>", cHtmlProd) :CST_Pis := Left(CapProd("CST</LABEL><SPAN class=multiline>", cHtmlProd),2) :vBC_Pis := CapProd("Base de Cálculo</LABEL><SPAN class=linha>", cHtmlProd) :pPIS := CapProd("Alíquota</LABEL><SPAN class=linha>", cHtmlProd) :vPIS := CapProd("Valor</LABEL><SPAN class=linha>", cHtmlProd) nLinhaLidas:=LinhaLidas("COFINS</LEGEND>", cHtmlProd); nLinhaTam:=Len(cHtmlProd); nSizeCont:=nLinhaTam-nLinhaLidas; cHtmlProd:=Right(cHtmlProd, nSizeCont) :CST_Cofins := Left(CapProd("CST</LABEL><SPAN class=multiline>", cHtmlProd), 2) :vBC_Cofins := CapProd("Base de Cálculo</LABEL><SPAN class=linha>", cHtmlProd) :pCofins := CapProd("Alíquota</LABEL><SPAN class=linha>", cHtmlProd) :vCofins := CapProd("Valor</LABEL><SPAN class=linha>", cHtmlProd) END ::oNFe:AddItem( oItem ) nLinhaLidas := LinhaLidas("COFINS</LEGEND>", cHtmlProd); nLinhaTam:=Len(cHtmlProd); nSizeCont:=nLinhaTam-nLinhaLidas; cHtmlProd := Right(cHtmlProd, nSizeCont) Else Exit Endif Enddo cHtml:=::cBodyDuplicatas nLinhaLidas := LinhaLidas("Duplicatas", cHtmlProdDup); nLinhaTam:=Len(cHtmlProdDup); nSizeCont:=nLinhaTam-nLinhaLidas; cHtmlProdDup := Right(cHtmlProdDup, nSizeCont) cHtmlProdDup := Left(cHtmlProdDup, LinhaLidas("id=Inf", cHtmlProdDup)) Do While .t. nLinhaLidas := LinhaLidas("linha>", cHtmlProdDup) If nLinhaLidas > 0 oItem := TVoNFeDupl() WITH OBJECT oItem :nDup := CapProd("linha>", cHtmlProdDup) nLinhaLidas := LinhaLidas("</SPAN>", cHtmlProdDup) cHtmlProdDup := Right(cHtmlProdDup, nLinhaLidas) :dVenc := CapProd("linha>", cHtmlProdDup) nLinhaLidas := LinhaLidas("</SPAN>", cHtmlProdDup) cHtmlProdDup := Right(cHtmlProdDup, nLinhaLidas) :vDup := CapProd("linha>", cHtmlProdDup) // nLinhaLidas := LinhaLidas("</SPAN>", cHtmlProdDup) // cHtmlProdDup := Right(cHtmlProdDup, nLinhaLidas+len("</SPAN>")) END ::oNFe:AddItem( oItem ) Else Exit Endif Enddo adicionado as duplicatas falta alguns campo do itens do produto se alguem tiver uma chave que tenha esses dados seria bom (linhas comentadas) chave que tenha 2 ou mais duplicatas seria bom

irei pôr o codigo onde foi alterado: em primeiro lugar faça uma copia do seu PRG depois alterar as ID (subistituir) ContentPlaceHolder1_tcnConsultaCompleta_tpnNFe <PARA> tabelaSuperior ContentPlaceHolder1_tcnConsultaCompleta_tpnTotais <PARA> Totais Depois subistituir o codigo: for f:=1 to nTotalProd oItem := TVoNFeProd() WITH OBJECT oItem ---- --- -- POR ESTE: cHtmlProd := Alltrim(::cBoDyHtml) nLinhaLidas := LinhaLidas("prod-serv-descricao", cHtmlProd) nLinhaTam := Len(cHtmlProd) nSizeCont := nLinhaTam-nLinhaLidas cHtmlProd := Right(cHtmlProd, nSizeCont) Do While .t. nLinhaLidas := LinhaLidas("prod-serv-descricao", cHtmlProd) If nLinhaLidas > 0 oItem := TVoNFeProd() WITH OBJECT oItem :cProd := CapProd("Código do Produto</LABEL><SPAN class=linha>", cHtmlProd) :cEAN := CapProd("Código EAN Comercial</LABEL><SPAN class=linha>", cHtmlProd) :xProd := CapProd("prod-serv-descricao><SPAN class=multiline>", cHtmlProd) :NCM := CapProd("Código NCM</LABEL><SPAN class=linha>", cHtmlProd) :CFOP := CapProd("CFOP</LABEL><SPAN class=linha>", cHtmlProd) :uCom := CapProd("Unidade Comercial</LABEL><SPAN class=linha>", cHtmlProd) :qCom := CapProd("Quantidade Comercial</LABEL><SPAN class=linha>", cHtmlProd) :vUnCom := CapProd("Valor unitário de comercialização</LABEL><SPAN class=linha>", cHtmlProd) :vProd := CapProd("prod-serv-vb><SPAN>", cHtmlProd) :cEANTrib := CapProd("Código EAN Tributável</LABEL><SPAN class=linha>", cHtmlProd) :uTrib := CapProd("Unidade Tributável</LABEL><SPAN class=linha>", cHtmlProd) :qTrib := CapProd("Quantidade Tributável</LABEL><SPAN class=linha>", cHtmlProd) :vUnTrib := CapProd("Valor unitário de tributação</LABEL><SPAN class=linha>", cHtmlProd) --- --- --- // VEJA QUE ESTA INCOMPLETO FALTAS ALGUNS DADOS DO ITENS, vc pode configurar o restante com o arquivo LOG.TXT .. END ::oNFe:AddItem( oItem ) nLinhaLidas := LinhaLidas("Modalidade Definição da BC ICMS NORMAL</LABEL><SPAN class=linha>", cHtmlProd) nLinhaTam := Len(cHtmlProd) nSizeCont := nLinhaTam-nLinhaLidas cHtmlProd := Right(cHtmlProd, nSizeCont) Else Exit Endif Enddo ADD AS FUNCOES: //------------------------------------------------------ Static Function CapProd(cCont, cHtmlProd) Local nPosIni := At(cCont, cHtmlProd), nPosFim:=0, x1:=0, cRet nPosIni := nPosIni+Len(cCont) Do while .t. x1++ If Substr(cHtmlProd, nPosIni+x1, 1) == "<" nPosFim := nPosIni+x1 nPosFim := nPosFim - nPosIni exit Endif Enddo If nPosIni==0 .or. nPosFim==0 Return nil Endif Return Subs(cHtmlProd, nPosIni, nPosFim) //------------------------------------------------------ Static Function LinhaLidas(cCont, cHtmlProd) If At(cCont, cHtmlProd) = 0 nRet:=0 Else nRet := At(cCont, cHtmlProd)+Len(cCont) Endif Return nRet //----------------------------- COLOCAR a variavel lDebug para TRUE para abilitar o log.txt para que vc possa continuar o desenvolvimento do itens do produto, pois estou com pouco tempo... Data lDebug INIT .t. qualquer duvida.