// Summary: <specify the procedure action>
// Syntax:
//CodigoBarrasTeste (<edit_codigobarras>)
//
// Parameters:
// edit_codigobarras: <specify the role of edit_codigobarras>
// Return Value:
// None
//
// For instance:
// Indicate an example.
//
Procedure CodigoBarrasZxling(edit_codigobarras)

cbCode is a BarCodes
sBarCode, sNomeProduto is string

IF (InAndroidEmulatorMode() = False AND InAndroidSimulatorMode() = False) OR ...
(IniOSEmulatorMode() = False AND IniOSSimulatorMode() = False)

cbCode = BCCapture()

ELSE

Info("Simulação")
cbCode = 1234567890

END

sBarCode = cbCode..RoughValue

// Run the test of the bar code
IF ErrorOccurred = False _AND_ sBarCode <> "" THEN

// Is it a valid bar code?
HReadSeekFirst(t006_campanhasXprodutos,t006_campanhasXprodutos.t006_codigoProduto,sBarCode)
IF HFound(t006_campanhasXprodutos) THEN
edit_codigobarras = sBarCode
//BTN_Reinitialize..State = Active
sNomeProduto = t006_campanhasXprodutos.t006_nome_produto

<Compile IF Configuration="Android application">
//ReturnToCapture(EDT_Quantity)
<END>

<Compile IF Configuration="iOS application">
RETURN
<END>

ELSE
Error("Produto não encontrado na base de dados")
END
END