mkyx

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=16808

Usa o bullzip pdf printer free. é simples e fácil e operar, total controle pelo fivewin link para download http://www.bullzip.com/products/pdf/info.php para gerar um relatório em pdf, usando o bullzip, pelo fivewin: oPdf := TOleAuto():New( "Bullzip.PDFPrinterSettings" ) oPdf:SetValue("Output","texto.pdf") oPdf:SetValue("ConfirmOverwrite", "no") oPdf:SetValue("ShowSaveAS", "never") oPdf:SetValue("ShowSettings", "never") oPdf:SetValue("ShowPDF", "no") oPdf:SetValue("RememberLastFileName", "no") oPdf:SetValue("RememberLastFolderName", "no") oPdf:WriteSettings := .T. PRINTER oPrinter NAME "RELATORIO" TO "Bullzip PDF Printer" . AQUI OS COMANDO SÃO OS MESMOS DE QUALQUER RELATORIO EM FIVEWIN . . . . ENDPRINTER

Scanear documentos pelo fivewin Alguém tem uma rotina para isso. Preciso usar numa impressora laser HP laserjet M1132 MFP. Att. Pompeo Guaratinguetá - SP

O que o contador falou não existe não, para cestas básicas. No meu sistema criei 3 orçamento com numero 1, 2 e 3 Quanto o operador vai emitir a nfe, dentre outras coisas é solicitado o numero o orçamento, então ele digita 1, 2 ou 3. e o sistema solta a nfe do kit ou orçamento ou cesta correspondente. simples assim.

Bom dia, Alguém teria alguma ideia por onde começar para desenvolver um programa para baixa da receita federal, todos os xml emitidos para um determinado CNPJ? Preciso desenvolver em fivewin/xharbour Já encontrei isso na net, em outras linguagens. Mas o fivewin é poderoso. Obrigado.

Boa tarde a todos os fivewinners, eu uso a rotina abaixo, para ler o endereço do cliente, a partir do cep do cliente: #include "fivewin.ch" function main() ** ler endereco completo pelo cep oEndere1="" oBairro1:="" oCidade1:="" oEstado1:="" cCep:="12501290" oNumero:="" B_CEP_C(oEndere1,oBairro1,oCidade1,oEstado1,cCep,oNumero) ? oEndere1," nº ",oNumero ? oBairro1 ? oCidade1 ? oEstado1 ? cCep return .t. FUNCTION B_CEP_C(oEndere1,oBairro1,oCidade1,oEstado1,cCep,oNumero) local oPg, tmp,cBuf,cResult, error_net,oerror,nMySQL local cUr2 :="http://cep.republicavirtual.com.br/web_cep.php?cep="+tira(cCep,"Z")+"&formato=xml" local cEstado,cCidade,cBairro,cEndere local cMsgSto:="COLOQUE NOME DA SUA EMPRESA" CURSOR("AGUARDE") if !ISInternet() MsgStop("Não Há Conexão com a INTERNET","SEM SINAL PARA CONEXÃO") CURSORARROW() Return(.T.) endif oPg = CreateObject("Microsoft.XMLHTTP") oPg:Open("GET",cUr2,.F.) ERROR_NET:=.T. Try oPg:Send() catch oError msgstop("ERRO AO CONSULTAR C.E.P..!!! " + oError:Description + ". FAÇA MANUALMENTE",cMsgsto) ERROR_NET:=.F. END TRY if ERROR_NET==.T. cBuf = oPg:ResponseBody cResult =substr(cBuf, at('<resultado>',cBuf)+11,1) cen:=substr(cBuf, at('>Logradouro:', cBuf) + 21, 250) if left(cBuf,2) # "OK" ERROR_NET :=.T. endif ARQ_SPED:="TESTE.TXT" ARQ0=FCREATE(ARQ_SPED,0) FCLOSE(ARQ0) ARQ0=FOPEN(ARQ_SPED,2) ll=CBUF+chr(13)+chr(10) FWRITE(ARQ0,LL,LEN(LL)) FCLOSE(ARQ0) endif CEN1:= substr(cbuf,(at("<tipo_logradouro>",cbuf)+len("<tipo_logradouro>")),at("</tipo_logradouro>",cbuf)-(at("<tipo_logradouro>",cbuf)+len("<tipo_logradouro>"))) CEN := substr(cbuf,(at("<logradouro>",cbuf)+len("<logradouro>")),at("</logradouro>",cbuf)-(at("<logradouro>",cbuf)+len("<logradouro>"))) CBA := substr(cbuf,(at("<bairro>",cbuf)+len("<bairro>")),at("</bairro>",cbuf)-(at("<bairro>",cbuf)+len("<bairro>"))) CCI := substr(cbuf,(at("<cidade>",cbuf)+len("<cidade>")),at("</cidade>",cbuf)-(at("<cidade>",cbuf)+len("<cidade>"))) CUF := substr(cbuf,(at("<uf>",cbuf)+len("<uf>")),at("</uf>",cbuf)-(at("<uf>",cbuf)+len("<uf>"))) cen:= alltrim(cen1)+" "+alltrim(cen) IF LEN(ALLTRIM(CUF))>1 oEstado1:Varput(substr(alltrim(sAcento(upper(cuf)))+space(2),1,2)) ENDIF IF LEN(ALLTRIM(CCI))>2 oCidade1:Varput(substr(alltrim(sAcento(upper(cCi)))+space(35),1,35)) ENDIF IF LEN(ALLTRIM(CBA))>2 oBairro1:Varput(substr(alltrim(sAcento(upper(cBa)))+space(35),1,35)) ENDIF IF LEN(ALLTRIM(CEN))>2 oEndere1:Varput(substr(alltrim(sAcento(upper(cen)))+space(60),1,60)) ENDIF oEstado1:Refresh() oCidade1:Refresh() oBairro1:Refresh() oEndere1:Refresh() oNumero:Setfocus() CURSORARROW() return(.T.) No windows 7 funciona bem, no windows 8, dá o erro abaixo: Ponto de entrada http push close, não localizada no URLMON.DLL Alguém sabe dizer como resolver esse desafio no windows 8?????? Obrigado a todos.

faltou a linha: oFTP:nDefaultPort := 21 ------------------------------------------------------------------------ // na sequencia: cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer oUrl := tUrl():New( cUrl ) oFTP := tIPClientFtp():New( oUrl, file("desenv.sys") ) oFTP:nDefaultPort := 21 oFTP:nConnTimeout := 12000 oFTP:bUsePasv := .T. if At("@",cUrl)>0 oFTP:oUrl:cServer := cServer oFTP:oUrl:cUserID := cUser oFTP:oUrl:cPassword := cPassword endif

Eu uso o flexdocs, através da classe do gilmer, e funciona blz confere com o seu aí: *** cabeçalho da nfe: oNfe := TVoNFe2g():New() oNFe:SetValue("ide" , 'cUF' , RetCodUFIBGE(UPPER(UF_Emi)) ) oNFe:SetValue("ide" , 'cNF' , StrZero( val("815273"),8) ) oNFe:SetValue("ide" , 'natOp' , cNatureza) oNFe:SetValue("ide" , 'indPag' , nTpPagto ) oNFe:SetValue("ide" , 'mod' , iif(nfc_e="S","65","55") ) oNFe:SetValue("ide" , 'serie' , VAL(N_SER00) ) oNFe:SetValue("ide" , 'nNF' , VAL(ALLTRIM(NPNF)) ) // Numero Nota Fiscal oNFe:SetValue("ide" , 'dhEmi' , TimeZone(DEM0,HE0,"1") ) if nfc_e#"S" oNFe:SetValue("ide" , 'dhSaiEnt', TimeZone(sai0,hs0,"2") ) endif oNFe:SetValue("ide" , 'tpNF' , cTpNF ) oNFe:SetValue("ide" , 'idDest' , iif(uf_e=uf01 .OR. nfc_e="S","1","2") ) oNFe:SetValue("ide" , 'cMunFG' , RetCodMunIBGE(UPPER(CI_E), UPPER(UF_E) )) oNFe:SetValue("ide" , 'tpImp' , iif(nfc_e="S","4",cTpImp) ) // tipo impressora oNFe:SetValue("ide" , 'tpEmis' , cTpEmis ) // ctpambiente oNFe:SetValue("ide" , 'cDV' , cDV ) //Não informar oNFe:SetValue("ide" , 'tpAmb' , cTpAmb ) oNFe:SetValue("ide" , 'finNFe' , iif(tpnf=3,"4",cFinalidade) ) IF cFinalidade$"23" .AND. NFE_CHAVE#" " ** oNFe:SetValue("ide" , 'refNFe' , nfe_chave ) endif oNFe:SetValue("ide" , 'indFinal' , iif(nfc_e="S","1",iif(len(TIRA(CNPJ0,"Z"))=11 .or. ie0=" ","1","0")) ) oNFe:SetValue("ide" , 'indPres' , "1" ) oNFe:SetValue("ide" , 'procEmi' , "0") oNFe:SetValue("ide" , 'verProc' , left(var_sys,14)) **************************** forma de pagamento: if nfc_e="S" IF CH_AV>0 .OR. CH_AP>0 // cheques t:=CH_AV+CH_AP-tro t:=round(t,2) LoadPagamentos( oNFe ,"02" ,t) ENDIF IF C_CTE>0 .or. VL_RL>0 .or. C_BOL>0 .or. vl_ct>0 // c/c, receber no local, boleto, carnêt t:=C_CTE+VL_RL+C_BOL+vl_ct-tro t:=round(t,2) LoadPagamentos( oNFe,"05",t ) ENDIF IF VL_DIN>0 // dinheiro t:=vl_din-tro t:=round(t,2) LoadPagamentos( oNFe ,"01",t) ENDIF IF TT_CRED>0 .OR. TT_DEBI>0 // cartões de credito e debitos t:=TT_CRED+TT_DEBI-TRO t:=round(t,2) LoadPagamentos( oNFe,"03",t ) ** LoadPagamentos( oNFe,"03",t ,"47558127000194" ,"01","345678263537") ENDIF endif ********************************************** Function LoadPagamentos( oNFe , tpPag , nVlpg , cnpj_card,band_card,aut_card) local cString := "" local nItem := 0 default cnpj_card:=space(14),band_card:=space(10),aut_card:=space(10) oItem := TVoNFePag() WITH OBJECT oItem :tPag := tpPag :vPag := nVlpg if cnpj_card#" " :CNPJ :=cnpj_card endif if band_card#" " :tBand :=band_card endif if aut_card#" " :cAut:=aut_card endif END oNFe:AddItem( oItem ) return nil

Não é uma impressora zebra que vai estar instalada no computador e compartilhada?? então, coloca para que o sistema selecione a zebra automaticamente e imprima a etiqueta.

O e-social está me deixando maluco, tenho um sistema de folha de pagamento e tenho que implementar mais essa obrigação legal. Uffa, ainda bem que alteraram o prazo para 2018 (01/01/2018 e 01/07/2018). Mas, eu pediria para quem soubesse indicar, onde eu poderia encontrar comandos e manual para manipular ole, request, get, response, etc Tudo sobre assinatura xml, como transmitir e consultar servidor web, etc., semelhante aos comandos abaixo: oServer := win_OleCreateObject( "MSXML2.ServerXMLHTTP") IF ::cCertificado != NIL oServer:setOption( 3, "CURRENT_USER\MY\" + ::cCertificado ) ENDIF oServer:Open( "POST", ::cWebService, .F. ) oServer:SetRequestHeader( "SOAPAction", ::cSoapAction ) oServer:SetRequestHeader( "Content-Type", "application/soap+xml; charset=utf-8" ) oServer:Send( ::cXmlSoap ) oServer:WaitForResponse( 500 ) cRetorno := oServer:ResponseBody Obrigado a todos. Pompeo Guaratinguetá - SP Fwh, xharbour

Boa noite, Alguém conhece uma dll ou lib para o e-social, semelhante à dll do flexdocs??? Obrigado

Melhor ferramenta para envio de e-mail, até agora que uso nos meus sistema, é a função da flexdocs

Pessoal, Será que existe um jeito, usando uma tela touch, rolar parte da tela, ou um grupo de ícones? semelhante ao que acontece no smartphone e tablet? Pompeo Guaratinguetá, SP

Judson, se não for muito, pediria, pro c postar aqui no fórum, como vc fez, pode ser parte do código. Obrigado.

a solução indicada por Theotokos, bPastEof, funcionou. Com essa opção eu posso controlar, quando o cursor estiver na ultima linha ou fim de arquivo. Obrigado.

AQUI DEU ERRO: MESSAGE NOT FOUND: XBROWSE:_NMOVETYPE USO A VERSÃO FWH 8.02, E OLHANDO DENTRO DO XBROWSE.PRG, NÃO ACHEI NADA RELACIONADO A nMoveType, se vc pude postar a parte do código que manipula essa opção, eu agradeceria. Seria muito bom, semelhante ao que acontecia no velho e bom clipper, que na função abaixo, repassasse para a função toda tecla pressionada, assim poderíamos fazer o que fosse necessária: OXBRW:BKEYDOWN:={ | NKEY | FUNCAO(NKEY) }

Theotokos, bkeydown não devolve o código da tecla seta para baixo, ou seta para cima, e são essas teclas que eu preciso intercepta-las para poder tomar uma decisão.

Fivewinners! Alguém sabe como interceptar uma tecla no xbrowse? pois eu preciso criar registro em branco, ao pressionar seta para baixo, quando for fim de arquivo. Thanks, everybody.

Lailton esse fonte pode ser compilado, junto com outros modulo, pelo fwh 8.02, compilador xharbour 2008?

NFC-e -> melhor caminho classe do gilmer depois a impressão é no formato mini-danfe, que é semelhante a um cupom fiscal, numa impressora térmica 40 coluna, que deve ser instalada no Windows como qualquer outra impressora tipo HP, não precisa usar nenhuma dll para gerar a impressão, só comando PRINTER

Qual a finalidade de usar essas declarações para essa impressora? Não entendi, pois uso a 4200 th, como uma impressora comum, instalada no Windows.

Agora, eis a questão: Como automatizar isto, a partir da chave da nfe? Para que o cliente, que no caso é do escritório de contabilidade, possar baixar automaticamente, e inserir nos livros fiscais?

Boa tarde, pessoal Tem um programa no mercado, que baixa qualquer xml da receita federal, sem precisar do certificado do emitente e do destinatário. Alguém, poderia me dizer se é possível fazer isso em fivewin????? Att. Pompeo Guaratinguetá, SP

Mas qual é o comando para declarar essa cor no xbrowse? Essa que é a minha dúvida.

Bom dia, galera, das 5 janelas (FiveWin) Alguém sabe como fazer isso?? Quando abrir a tela contendo um xbrowse, o mesmo ficar com um fundo azul claro??? Agradeço a todos, antecipadamente. Att. Pompeo Guaratinguetá - SP