Public Function BarCodeInput(ByVal vBarCode As String, ByVal vRootFunctionName As String, ByVal vFamily As String, ByVal vActor As String) As Boolean
Try
Dim lBarCodeStd As String = BarCodeStandarization(vBarCode) ' aki estandarizo el CB (quitar espacios, poner mays, etc...)
.
'aki llama a la función que toque del TFT_FUNCTION pasando como primer parámetor le CB Standarizado
_WorkItemManager.loadTFunction(String.Format("{0}{1}", vRootFunctionName, lBarCodeStd.Length), vActor, vFamily, lBarCodeStd)
Return True
Catch ex As Exception
MsgBox(String.Format("Source: {0}, Error Num: {1}, Error Desc: {2}", "BarCodeInput", Err.Number, ex.Message))
Return False
End Try
.
.
.
En TFT_FUNCTION he creado dos llamadas a una dll (que de momento me he inventado) con:
* TF_CODE01=TAI, TF_CODE02=BarCodeInput8, TF_NAME01=Functon name:Tratamiento Operarios, etc...
* TF_CODE01=TAI, TF_CODE02=BarCodeInput16, TF_NAME01=Functon name:Functon name:Tratamiento Entidades, e