Perguntas Código de Barra

Kaleb o codigo de barras e a linha digitavel são diferentes, vc precisa criar um campo para o preenchimento da linha digitavel e que gere o codigo de barras ou vice e versa.

tenho algumas funções mas no momento não consigo te mandar.

#INCLUDE "rwmake.ch"
/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³F240TIT º Autor ³ Luiz Alberto V Alves º Data ³ 30/07/10 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ Codigo gerado pelo AP6 IDE. º±±
±±º ³ º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP6 IDE º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
Ponto de entrada responsavel pela abertura da tela de digitação de codigos de barras em titulos a pagar
no momento da marcação dos titulos na tela de bordero de pagamentos.
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
/*/

User Function F240TIT()
Local aArea := GetArea()

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Declaracao de Variaveis ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
Private _aEstrut := {}
Private cCodBar := SE2TMP->E2_IPTE
Private cCodRet := SPACE(4)
Public cBusca := {}
Public nx := ""
Private lBxTit := .T.
Private _cgc := ""
Private _codfor := ""
Private _cNum := ""
Private _DescLan := ""
Private _forori := ""
Private _lojori := ""
@ 115,085 To 250,505 Dialog oTipo Title "FORMA DE PAGTO"
@ 002,002 To 065,210
@ 010,004 Say OemToAnsi("Forma de Lancto ")

@ 025,004 Say OemToAnsi("Codigo Barras ")
@ 025,065 Get cCodBar !Empty(cCodbar)

@ 045,145 BmpButton Type 1 Action (Close(oTipo),lBxtit:= .t.)
@ 045,177 BmpButton Type 2 Action (close(oTipo),lBxTit:= .f.)

Activate Dialog oTipo centered

If !Empty(cCodBar)
Dbselectarea("SE2TMP")
RecLock("SE2TMP",.F.)
SE2TMP->E2_IPTE := cCodBar
SE2TMP->E2_CODBAR := FICODBAR(cCodBar)
MsUnlock()

dbSelectArea("SE2")
dbGoTo(SE2TMP->NUM_REG)
RecLock("SE2",.F.)
SE2->E2_IPTE := cCodBar
SE2->E2_CODBAR := FICODBAR(cCodBar)
MsUnlock()
Endif
RestArea(aArea)
Return(lBxTit)

Static Function FICODBAR(cCodBar) // incluido pelo assistente de conversao do AP5 IDE em 26/07/02

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Declaracao de variaveis utilizadas no programa atraves da funcao ³
//³ SetPrvt, que criara somente as variaveis definidas pelo usuario, ³
//³ identificando as variaveis publicas do sistema utilizadas no codigo ³
//³ Incluido pelo assistente de conversao do AP5 IDE ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

SetPrvt("_CRETORNO,")

/*/
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Fun‡…o ³ FBCODBAR ³ Autor ³ Patricia P. Santos ³ Data ³ 08/11/99 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡…o ³ Converte Cod. Barras p/ Linha Digitavel e o contrario ³±±
±±³ ³ Desenvolvido para FERROBAN - Gatilho ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
/*/

_cRetorno := ""
// Tem linha digitavel e nao tem codigo de barras

// Cod. Barras nao tem digitos verificadores
IF LEN(ALLTRIM(cCodBar))==47
_cRetorno := Substr(cCodBar,1,4) + ; // BANCO + MOEDA
Substr(cCodBar,33,1) + ; // DV GERAL
Substr(cCodBar,34,4) + ; // FATOR VENCIMENTO
StrZero(Val(Alltrim(Substr(cCodBar,38,10))),10) + ; // VALOR
Substr(cCodBar,5,5) + ; // CAMPO LIVRE
Substr(cCodBar,11,10) + ;
Substr(cCodBar,22,10)
ELSE
_cRetorno := Left(cCodbar,11)
_cRetorno += SubStr(cCodbar,13,11)
_cRetorno += SubStr(cCodbar,25,11)
_cRetorno += SubStr(cCodbar,37,11)
ENDIF

// Substituido pelo assistente de conversao do AP5 IDE em 13/06/01 ==> __Return(_cRetorno)
Return(_cRetorno) // incluido pelo assistente de conversao do AP5 IDE em 13/06/01

Kaleb claro que pode, o ideal seria por aqui, assim ficaria registrado para quem passar pelo mesmo problema.

Segue ai Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.